home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 9 / The PC-SIG Library on CD ROM - Ninth Edition.iso / 401_500 / DISK0417 / DISK0417.ZIP / PROLOG.ARC / ATN.ARC / ROUTINE.PRO < prev    next >
Text File  |  1986-07-20  |  384b  |  12 lines
  1. append([],L,L).
  2. append([Z|L1],L2,[Z|L3]) :- append(L1,L2,L3).
  3.  
  4. printstring([]).
  5. printstring([H|T]) :- put(H), printstring(T).
  6.  
  7. ret(X) :- X(_),retract(X(_)),ret(X).
  8. ret(X) :- X(_,_),retract(X(_,_)),ret(X).
  9. ret(X) :- X(_,_,_),retract(X(_,_,_)),ret(X).
  10. ret(X) :- nl,print(X,' has been retracted').
  11. /*         final atn program    */
  12.